home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Utilities / AmiBroker / AFL / Commentaries / Translations / polski / MACD.AFL < prev   
Text File  |  1999-02-28  |  3KB  |  77 lines
  1. /* Project:       AmiBroker
  2. ** File:          macd.afl
  3. ** Title:         MACD Guru Commentary Example (English)
  4. ** Requirements:  AFL 1.1   (AmiBroker 3.0) or above
  5. ** Date:          Feb 9th, 1999
  6. ** Written by:    Tomasz Janeczko
  7. */ 
  8.  
  9. buy=cross( macd(), signal() );
  10. sell = cross( signal(), macd() );
  11.  
  12. "Analiza akcji: " + fullname() + " (" + name() + ")" + "\nna dzieï " + date();
  13.  
  14.  
  15. "\nBieûâca statystyka\n";
  16. "Kurs:          " + WriteVal(Close);
  17. "Zmiana:        " + WriteVal(Close - Ref( Close, -1 ) ) ;
  18. "MACD :         " + WriteVal(MACD());
  19. "Linia sygnaîu: " + WriteVal(SIGNAL());
  20.  
  21. "\nMACD daje wskazówki dotyczâce kupna/sprzedaûy na trzy sposoby: przeciëcia linii sygnaîu, stany wykupienia/wyprzedania i dywergencje.\n";
  22.  
  23. "Przeciëcia:\n";
  24. "Obecnie wskaúnik MACD wskazuje na rynek "+
  25. writeif(macd() > signal(),"byka","niedúwiedzia")+
  26. " gdyû jest "+
  27. writeif(macd() > signal(),"powyûej","poniûej")+
  28. " swojej linii sygnaîu.";
  29.  
  30.  
  31. "Wskaúnik MACD "+
  32. writeif(macd() > signal(),"wzrosî ponad linië ","opadî poniûej linii")+
  33. " sygnaîu "+
  34. writeval( min( barssince( cross( macd(), signal() )), barssince( cross( signal(), macd()))), 0.0)+
  35. " okresów (dni) temu.";
  36.  
  37. bars=lastvalue(min( barssince( cross( macd(), signal() )), barssince( cross( signal(), macd())) ));
  38.  
  39. prevclose=ref(Close,-bars);
  40.  
  41. "Odkâd MACD przeciâî swâ ôredniâ ruchomâ, kurs akcji "+
  42. name()+
  43. writeif(close>prevclose," wzrósî "," spadî ")+
  44. writeval(100*(close-prevclose)/prevclose) + "%";
  45.  
  46. "I pozostawaî w zakresie od maksimum "+
  47. writeval(HHV(High,bars+1),6.3)+
  48. " do minimum "+
  49. writeval(LLV(Low,bars+1),6.3);
  50.  
  51. "\nWykupienie/Wyprzedanie\n";
  52. Osc = OscP( 12, 26 );
  53. Osc1 = Ref( Osc, -1 );
  54. Osc5 = Ref( Osc, -5 );
  55.  
  56. writeif( Osc <= -3 AND ( Osc - Osc5 ) == -Sum( Abs( Osc - Osc1 ), 5 ),
  57. "MACD jest w strefie wyprzedania. Kurs moûe spadaê jeszcze przez pewien czas. Zaczekaj, aû kurs zacznie rosnâê zanim zaczniesz rozwaûaê kupno tych akcji.",
  58. writeif( Osc >= 3 AND ( Osc - Osc5 ) ==  Sum( Abs( Osc - Osc1 ), 5 ), 
  59. "MACD jest w strefie wykupienia. Kurs moûe rosnâê jeszcze przez pewien czas. Zaczekaj, aû kurs zacznie spadaê zanim zaczniesz rozwaûaê sprzedaû tych akcji.",
  60. "MACD jest w strefie neutralnej."));
  61.  
  62. "\nDywergencje\n";
  63. temp = Trough(LOW, 2, 1) < 0.96 * Ref( Trough(LOW, 2, 1), -1) AND ValueWhen( Trough(LOW, 2, 1) != Ref( Trough(LOW, 2, 1), -1 ), MACD(), 1 ) >= 0.90 * ValueWhen( Trough( LOW, 2, 1) != Ref( Trough( LOW, 2, 1), -1 ), MACD(), 2 ) AND MACD() < 0;
  64.  
  65. temp2= Peak(  HIGH,2, 1) > 1.04 * Ref( Peak( HIGH, 2, 1), -1) AND ValueWhen( Peak( HIGH, 2, 1) != Ref( Peak( HIGH, 2, 1), -1 ), MACD(), 1 ) <= 0.90 * ValueWhen( Peak(  HIGH, 2, 1) != Ref( Peak(  HIGH, 2, 1), -1 ), MACD(), 2 ) AND MACD() > 0;
  66.  
  67. writeif( hhv( temp, 5 ) == 1,"Dywergencja wzrostowa wystâpiîa " + writeval( barssince( temp ), 1.0 ) +
  68. " okresy (dni) temu. Zaczekaj na ruch cen w górë w celu potwierdzenia znaczenia sygnaîu, zanim rozwaûysz kupno tych akcji.",
  69. writeif( hhv( temp2,5) == 1,
  70. "Dywergencja spadkowa wystâpiîa " +
  71. writeval( barssince( temp2 ), 1.0 ) +
  72. " okresy (dni) temu.  Zaczekaj na ruch cen w dóî w celu potwierdzenia znaczenia sygnaîu, zanim rozwaûysz sprzedaû tych akcji.",
  73. "W ciâgu ostatnich 5 okresów (dni) nie wystâpiîy ûadne dywergencje." ) );
  74.  
  75. "\n\nTen komentarz nie stanowi rekomentacji kupna/sprzedaûy akcji, jest raczej wskazówkâ jak naleûy interpretowaê MACD. ";
  76.  
  77.